﻿Public Class frmSetAccount

    Private Sub rdbThisAccount_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbThisAccount.CheckedChanged
        If rdbThisAccount.Checked Then
            enableTextBox(True)
        Else
            enableTextBox(False)
        End If
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

    Private Sub btnOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOk.Click
        If rdbThisAccount.Checked Then
            If validationAccountFolder() Then
                Call setAccountFolder()
                Me.Close()
            Else
                ToolTip1.Show("Verifique las contraseñas", Me.txtAccountPass, 500)
                Me.txtAccountPass.Focus()
                Me.txtAccountPass.SelectAll()
            End If
        Else
            Me.Close()
        End If
    End Sub
End Class